home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M300.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
4KB
|
193 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING001
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING001 = "NO"
If (0 == 1) STRING001 = "YES"
EndFunc
:LABEL001
STRING002 = String(PcbNode())
If (PcbNode() == 0) STRING002 = "A"
STRING004 = GetEnv(STRING002 + "RECNO")
STRING004 = ToInteger(STRING004)
STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
DOpen 0, PPEPath() + "USER.DBF", 0
DGo 0, STRING004
:LABEL002
Cls
Newlines 2
PrintLn " @X0B You sit down amongst a group of old soldiers, many of them @X07"
PrintLn " @X0Bmissing pieces that you think are rather important. Several of them @X07"
PrintLn " @X0Bare staring into space, one of the signs you were warned about @X07"
PrintLn " @X0Bregarding the virus native to this planet.@X07"
PrintLn
PrintLn " @X0B While you're staring at one of the virus victims, he starts @X07"
PrintLn " @X0Bsuddenly and looks you square in the eye. A wild cleverness seems to @X07"
PrintLn " @X0Binvade his countenance, and he pipes up:@X07"
PrintLn
PrintLn " @X0B I know a number under a hundred, and I'll bet you any amount @X07"
PrintLn " @X0Bthat you can't guess it. I'll even give you SIX guesses at it.@X07"
Newlines 2
:LABEL003
PrintLn "@X0A ", Trim(DGet(0, "CASH"), " "), " @X0Bcredits on hand.@X0F"
InputStr "@X0B So tell me, how many credits do you want to bet @X0E> _", INTEGER001, 15, 10, Mask_Num(), 0
If (INTEGER001 == "") Goto LABEL002
If (ToInteger(INTEGER001) == 0) Then
Newlines 2
PrintLn "@X0CScared to bet with an old cripple, eh?@X0F"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
Else
If (INTEGER001 > DGet(0, "CASH")) Then
Backup 80
ClrEol
PrintLn "@X0CDon't screw with me, you don't have that many credits!@X0F"
Delay (3 * 182) / 10
Goto LABEL003
Endif
Cls
Newlines 2
DPut 0, "CASH", DGet(0, "CASH") - INTEGER001
PrintLn "@X0BOk Hero, I have my number all set, and to make it fair, I will tell it to the@X0F"
PrintLn "@X0BColonel sitting right next to you. He leans over and whispers something @X0F"
PrintLn "@X0Bunintelligble to the one-armed man next to you.@X0F"
Newlines 3
Call PPEPath() + "VRS-M19.PPE"
Cls
INTEGER003 = Random(100)
Newline
For INTEGER004 = 1 To 6
Print "GUESS #", INTEGER004
InputStr "@X04) @X0AWell what will it be @X8E>@X0F _", INTEGER002, 14, 3, Mask_Num(), 0
If (INTEGER002 < INTEGER003) Then
Newline
PrintLn "@X0BToo Low!@X0F"
Continue
Endif
If (INTEGER002 > INTEGER003) Then
Newline
PrintLn "@X0CToo High!@X0F"
Continue
Endif
Newline
PrintLn "@X89You Got It! I can't believe it!@X0F"
Newline
PrintLn "@X0AHere is your $", INTEGER001 * 2, ", don't spend it all in one place!@X0F"
DPut 0, "CASH", DGet(0, "CASH") + INTEGER001 * 2
Newlines 2
Call PPEPath() + "VRS-M19.PPE"
Goto LABEL004
Next
If (INTEGER004 >= 6) Then
Newline
PrintLn "@X8CLoser!@X0E I hardly ever lose this game! Thanks for the @X0A", INTEGER001, "@X0E credits!@X0F"
Newlines 3
Call PPEPath() + "VRS-M19.PPE"
Endif
Endif
:LABEL004
DCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 3 Cls
; 1 ClrEol
; 14 Goto
; 10 Let
; 1 Print
; 23 PrintLn
; 10 If
; 2 InputStr
; 1 Delay
; 6 Newline
; 7 Newlines
; 4 Call
; 1 Backup
; 1 EndFunc
; 1 DOpen
; 1 DCloseAll
; 1 DGo
; 2 DPut
;
;
; ■ Functions used :
;
; 3 *
; 1 /
; 8 +
; 1 -
; 5 ==
; 2 <
; 1 <=
; 2 >
; 3 >=
; 6 !
; 2 &&
; 1 ||
; 1 Trim()
; 1 Random()
; 1 String()
; 2 Mask_Num()
; 5 PPEPath()
; 2 PcbNode()
; 1 GetEnv()
; 2 ToInteger()
; 4 DGet()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 5 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------